home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / TPGI.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.3 KB  |  58 lines

  1. # TPGI PPP login script
  2. #
  3. # 21/Aug/95 EJW
  4. #
  5.      
  6. STRING username
  7. STRING password
  8. STRING framing
  9. STRING IPAddress
  10.      
  11. SetTimeOut  60
  12. CfgGetValue "Username" username
  13.      
  14. IF result = 0 THEN
  15.     GetInput "Enter your username:"  username 
  16.     IF result = 0 THEN
  17.         PRINT "Warning, no username entered."
  18.     ELSE
  19.         PRINT "Username set to: ";username 
  20.         CfgSetValue "Username" username
  21.     ENDIF
  22. ENDIF
  23.     
  24. CfgGetValue "Password" password
  25. IF result = 0 THEN
  26.     GetPassword "Enter your password:" password 
  27.     IF result = 0 THEN
  28.         PRINT "Warning, no password entered."
  29.     ENDIF
  30. ENDIF
  31.     
  32. CfgGetValue "Framing" framing
  33. IF result = 0 THEN
  34.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  35. ENDIF                                                   # don't wait for spaces
  36.      
  37. CommWaitFor "username: "                 # case sensitive
  38.      
  39. CommSend        username
  40. CommSend        "%r"            # send ENTER 
  41.     
  42. CommWaitFor     "password: "
  43. CommSend        password
  44. CommSend        "%r"            # send ENTER 
  45.     
  46. CommWaitFor     "choice:"
  47.     
  48. # The Annex terminal server requires a macro to be exectued for connection 
  49. # ppp for PPP connection and slip for SLIP. It is case sensitive.
  50.      
  51. IF framing = "MPPPP" THEN
  52.     CommSend   "ppp"
  53. ENDIF
  54.     CommSend        "%r"
  55.      
  56. END
  57.